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MODULE BASSFSP ( 


IDENT = ‘1=006' 
)s= 


BEGIN 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE mM SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
Faanstenntee” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
SORPORAT tie NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


lee 
FACILITY: BASIC-PLUS-2 Miscellaneous 1/0 


ABSTRACT: 


This module contains the BASIC FSP function 
Which returns information about the open tile. 


ENVIRONMENT: VAX-11 User Mode 
AUTHOR: John Sauter, CREATION DATE: 18-APR-1979 
MODIFIED BY: 


1 
1 
1 
1 
1 
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-001 Original. 

“$0 Change LIB$S and OTS$S to STR$. JBS 21-MAY-1979 
Change calls to STRSCOPY. JBS 16-JUL-1979 

-004 = Set up ISBSA_USER_FP. JBS 25=JUL-1 

-005 - Correct an error in a comment. JBS 26-0CT-1979 


-006 - Return LUBSL_ALQ. We had to redefine a sy jocetion for this so 


bas$open can retain this value. FM 22-SEP- 
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PASSE SP 18-Sep-1986 11:55:00 EBAsATL:SRCSoAS*SP:030; 
SWITCHES: 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


; ¢ 1 

; § 1 

; § 1 

| } 

: 80 5 

: 8 an LINKAGES 

; 8 $e 1! 

; «64 65 1 

. $3 : REQUIRE *RTLIN:OTSLNK'; ! Define Linkages 

; 8 94 1! 

; 495 1 ! TABLE OF CONTENTS: 

; 9 re] 1! 

3 0 497 1 

3 71 0498 1 FORWARD ROUTINE 

She . 0499 1 BASSFSP : NOVALUE; ! Return info about the file 
TS 0500 1 

: re 0802 ii INCLUDE FILES 

3; © $808 1! 

Bote oe 0504 1 

3 4 3208 : REQUIRE ‘RTLML:OTSLUB'; ! Get LUB definitions 

H +} Bere } REQUIRE "RTLML:OTSISB'; ! Get ISB definitions 

3 ag oei3 : REQUIRE "RTLIN:RTLPSECT’; ! Macros for defining psects 
;  B4 0911 1 LIBRARY *RTLSTARLE’; ! System symbols 

: BS 91g of 7 

; 09135 1! 

$ 87 0914 1 ! MACROS: 

; oak 1! 

; ay | ,! NONE 

; Ww 0917 1! 

; 91 B218 1 ! EQUATED SYMBOLS: 

; 0919 1! 

ey G 0920 1 

; | 94 0921 1 LITERAL 

oi Oe 09 ¢ 1 BAS$K_ORG_SEQ = 0 : erpsnizetion is sequential 
;  % 0923 1 BASSK-ORG_REL = 16, i Relative 

s WW 0924 1 BASSK_ORG_IND = 32, ! Indexed 

3 38 44 5 1 BASSK_RFM_FIX = 1, ! Record format is fixed 

; 926 1 BASSK_RFM_VAR = ¢° ! variable 

: 100 +4 r= BASSK_RFM_VFC = ! variable with fixed control area 
> 101 8 1 SSK“RFM_NONE = 0, i (special code for virtual files) 
3 14 0929 1 BASSK_RAT_FIN = 1, ' Record attribute FORTRAN 

; 930 1 BASS$K_RAT_CR = 2 : Carratge Return 

; 104 1 1 BASSK-RAT-PRN = 4 i Print File Format 

: 105 3 : BASSK-RAT-NONE = 0; i (special code for virtual and stream) 
; 109 $9 ® +f 

; H+ 03 5 : : PSECTS: 

; 110 937 1 DECLARE_PSECTS (BAS); ! Declare psects for BASS facility 
: 111 0938 1! 
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; 11 939 1 ! OWN STORAGE: 

3 (43 940 1! 

3; (116 941 1! NONE 

3 6339 942 1! 

; BY 945 1 ! EXTERNAL REFERENCES: 

; 1 944 1! 

3 198 45 1 

3 119 946 1 EXTERNAL ROUTINE 

; 120 947 1 BASSSCB_PUSH : JSB_CB_PUSH wove ie. ! Load pegrecee ccB 

3: 121 0948 1 BASS$CB_POP : ISB CB_POP NOVALUE, ' Done with register CCB 
as ; 0949 1 BASSSSTOP_IO : NOVALOE, ! Signal fatal 1/0 error 
= 950 1 pity he : : NOVA LUE, ! Signal fatal error 

3 126 951 1 STRSCOPY_ ! Copy a string by reference 
3 Ve 952 1 

; 126 953 1 !4 

s ter 954 1! The following are the error codes used in this module. 

; 128 0955 1 !- 

; 129 0956 1 

cs 0957 1 EXTERNAL LITERAL 

3: 151 0958 1 BAS$K_IO_ CHANOT : UNSIGNED (8), ! Channel not open. 

3 13 0959 1 BASSK_MARMEMEXC : UNSIGNED (8), ! nen memory exceeded 

; 0960 1 BASS$SK_PROLOSSOR : UNSIGNED (8), : regres lost, sorry. 

3 i 442) : BASSK_ILLIO_CHA : UNSIGNED (8); } ati gal 1/0 channe 
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: 137 963 1 GLOBAL ROUT INE BASSFSP ( ! Return info about the file 
: 138 964 1 RESULT, ! Where to put info 
; 139 65 1 C ! Channel open to the file 
3 160 208 1 ) : NOVALUE = 

: «(141 967 1 

3 106 968 1 +4 

3 re > H : FUNCTIONAL DESCRIPTION: 

; 102 348 : ae, wrneer ne aon rhe hb rir st open - this 
ie $ channel. s is especia usefu e channel was 

3 «147 0975 1! spans with organization UNDEFINED. The result is returned 
: 168 9464 ! } as a 52-character string, laid out as follows: 

; 150 976 1! BYTE MEANING 

s 31 977 1! 

: 136 34h : } 1 The record format and file organization, see below 
: 61546 0980 1! 2 The record attributes, see below. 

s 155 0981 1! 

; 156 0982 1! 3-4 FABSW__MRS. 

s 157 983 1! a 

s 158 984 1! 5-8 FABSL_ALQ. 

3; 159 0985 1! 

§ 129 Bone ’ 9-10 FABSW_BLS if this is a mag tape, otherwise FAB$B_BKS. 
: 196 0988 1! 11 Number of keys in the file (indexed only). 

; 16 0989 1! 

: 164 0990 1! 12 Zero. 

3; 165 0991 1! 

: 166 0992 1! 135-16 FABSL_MRN. 

3 167 0995 1! 

; 168 0994 1! 17-20 RABSL_BKT. 

: 169 0995 1: 
: 170 0996 1! 21-32 ~=Zero. 

: 171 0997 1! 

3 \7¢ 0998 1! 

.- Sr 0999 1! The first byte is organization + record format, encoded as: 
+ 17% 1000 1: sequential = 0, relative = 16, indexed = 32; fixed = 1, 

s 175 1001 1! variable = 2, VFC = 3. The second byte is the record 

: 176 1002 1! attribute, encoded as: FORTRAN = 1, CR = 2, PRN = 4 

: 177 1003 1! none = 0. Virtual files have both bytes 0. Channel 0 is 

3 178 H's ; } sequential, variable, RAT=none, all other bytes zero. 

3; 180 1908 1 ! FORMAL PARAMETERS: 

; 181 1007 1! 

3 186 1008 1! RESULT. wb.dx Where to put the 32-byte result. 

: 18 1009 1! CHAN. rl.v The channel to do this to. 

3; «6184 1919 1! 

: 185 1011 1 =! IMPLICIT INPUTS: 

: 136 I9i¢ 1! 

. ¥ 1015 1! NONE 

: 188 1014 1! 

: 189 1015 1 ! IMPLICIT OUTPUTS: 

; 190 1918 1! 

3; 6191 1017 1! NONE 

3 136 4 1! 

; #19 1019 1 ! ROUTINE VALUE: 
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138 : COMPLETION CODES: 
: NONE 
: SIDE EFFECTS: 


Signals if an error is encountered. 
BASSS$CB_PUSH will signal if tie channel number is invalid. 
We signal BASSK_IO_CHANOT if the channel is not open. 
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BEGIN 
BUILTIN 
P; 
GLOBAL REGISTER 
CCB = K_CCB_REG : REF BLOCK C, BYTE); 
LOCAL 
FMP : REF BLOCK C, BYT 


i 
FSP_STRING : VECTOR C32, BYTE); 
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rt} - FMP = .FP; 
2 46 i Set all positions to zero, so any not stored in below will come 
2 rt out zero. 
49 2 
50 INCR COUNTER FROM 0 TO 31 DO 
51 FSP_STRING C.COUNTER) = 0; 
5, 
2 54 ! If this is the user's terminal, return the same information as 
2 55 ! the PDP-11. 
5 8 gi 
2 58 IF (.CHAN EQL 0) 
3 59 THEN 
34 060 BEGIN 
35 061 FSP_STRING £0) = BASSK_ORG_SEQ + BASSK_RFM_VAR; 
36 06¢ FSP-STRING C1) = BASSKRAT_NONE; 
38 064 Copy our string back to the caller. 
40 +4] ; STRSCOPY_R (.RESULT, ZREF (32), FSP_STRING); 
41 06 END 
*g poe ELSE 
4 53 BEGIN 
44 0 '¢ 
oT 34 : Get the CCB for the channel. 
4 678 BASS$$CB_PUSH (.CHAN, LUBSK_LUN MIN); 
“8 are : CCB CISBSA_USER_FP] = .FMP~CSFSL_SAVE_FP); 
50 O78 i Fail if the channel is not open. 
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; 1 1077 !- 

; 107 

; § a IF ( NOT .CCB CLUBSV_OPENED]) THEN BASSS$STOP_IO (BASSK_IO_CHANOT); 
3 5 1081 ! 

: 28 8 ¢ } Extract the organization 

: 4 1084 FSP_STRING (0) = 

; 259 1085 4 BEGIN 

; 260 1086 4 

3 61 1087 5 IF (.CCB CLUBSB_ORGAN] EQL LUBSK_ORG_VIRTU) 
3 6¢ + 4 THEN 

; 26 1089 4 0 

: 264 1090 4 ELSE 

; 265 1091 5 BEGIN 

3 see 1336 é 

3 67 109 CASE .CCB CLUBSB_ORGAN] FROM LUBSK_ORG_SEQUE TO LUBSK_ORG_TERMI OF 
3 see 1094 5 SET 

: $9 1996 3 CLUBSK_ORG. SEQUE] 

; 271 1097 5 BASSK_ORG_SEQ; 

; si¢ 1098 5 

3; ef 1099 5 CLUB$K_ORG_RELAT) : 

3; 274 1100 5 BASSK_ORG_REL; 

3 er? 1101 5§ 

3 26 1108 5 CLUBSK_ORG_ INDEX] : 

3 27 1103 5 BASSK_ORG_IND; 

3; 278 1104 5§ 

3 444 1105 5 CLUBSK_ORG_TERMI] : 

; 280 1106 5 BASSK_ORG_SEQ; 

: 281 1107 5 

5 seg 1108 5 COUTRANGE) : 

; 28 1109 6 

3 284 1110 6 BAS$$STOP_I0 (BAS$K_PROLOSSOR); , 
s gee 1111 6 

; 286 16 5 END; 

; 287 111 5 TES 

: 288 1114 5 

; 289 1115 § END 

; 290 1116 4 + 

: 291 1117 5 BEGIN 

: 292 1118 5 | 
; 293 1119 6 IF (.CCB CLUBSV_FIXEDI) 

5 94 1139 H 

: 295 1121 BASSK_RFM_F IX 

3 38 1156 ELSE 

3 4 1188 5 IF (,CCB CRABSL_RHB) EQLA 0) THEN BASSK_RFM_VAR ELSE BASSK_RFM_VFC 
; 300 1186 END 

; 301 1127 

3 34 1128 ND; 

5 0 1129 SP_STRING [1] = 

: 304 1130 4 EGIN 

3: 305 1131 4 

; 06 11 § 5 

: 307 11 4 
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BASSK_RAT_NONE 
ELSE 
LF ((.CCB CLUBSB_RATI AND FABSM_FTN) NEQ 0) 


BASSK_RAT_F TN 
ELSE 


IF ((.CCB CLUBSB_RAT] AND FABSM_CR) NEQ 0) 


BASSK_RAT_CR 
ELSE 


IF ((.CCB CLUBSB_RAT] AND FABSM_PRN) NEQ 0) THEN BASSK_RAT_PRN ELSE BAS$K_RAT_NONE 
ts END; 
; Store the maximum record size, FABSW_MRS. (somewhat fudged) 
1 BLOCK CFSP_STRING [2], 0, 0, 16, 0] = .CCB CLUBSW_RBUF_SIZEJ; 
; Store the allocation quantity. 
1 BLOCK CFSP_STRING [4], 0, 0, 32, 0] = .CCB CLUBSL_ALQ]; 
! Store the block size or bucket size. This is currently not 
! supported, since we do not support non-file mag tape. 
; Always return zero. 
BLOCK CFSP_STRING [8], 0, 0, 16, 0] = 0; 


i] 
! Store the number of keys in an indexed file. We don't support 
' this, either. Always return zero. 


> FSP_STRING (10) = 0; 

i Store the number of the highest record that can be written to 
! the file. Since we don't retain this information either, just 
} return the highest record number. 

‘a BLOCK CFSP_STRING [12], 0, 0, 32, 0] = .CCB CLUBSL_REC_MAX); 
Store the current block/record number. 

a BLOCK CFSP_STRING [16], 0, 0, 32, 0] = .CCB CRABS$L_8KT); 
; Copy our string back to the caller. 

STRSCOPY_R (.RESULT, ZREF (32), FSP_STRING); 

We are done with register CCB. 

BAS$$CB_POP (); 

END; 
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RETURN; 
END; ' end of BASSFSP 
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-BASSCODE + 0000 


255 bytes, Routine Base: 


3; Routine Size: 


' end of module BASS$FSP 


PSECT SUMMARY 


Attributes 


EXE, 


Bytes 


Name 
_BASSCODE 


SHR, LCL, REL, CON, PIC,ALIGN(2) 


RD , 


255 NOVEC,NOWRT, 


F 14 
BASSF SP 16-Sep-1 AX-11 Bliss-32_v4.0-742 Page 1 
1-006 148 at a a BASRIL. SRCIBASE $PB3es1 ae 


Library Statistics 


; seamesss GYERG(G scecesse Pages Processing 
3 File Total Loaded Percent Mapped me 
: -$255$DUA28 : CSYSLIBISTARLET.L32;1 9776 6 0 581 00:01.2 : 
; COMMAND QUALIFIERS | : 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=L1S$:BASFSP/OBJ=OBJ$:BASFSP MSRC$:BASFSP/UPDATE=(ENH$: BASF SP) | 
; Size: 255 code + 0 data bytes 
; Run Time: 00:11. ; 


3; Elapsed Time: 00:24. | 

3 Lines/CPU Min: 607 ae 
3; Lexemes/CPU-Min: 37633 

; pe | aye 159 pages 

; a 


; Compi ion Complete 


o 
ar 
=> 
wn 
= 
~ 
“~ 
x 
ce 
> 


2 AH-BT13A-SE 


